home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 43 / Amiga Format CD43 (1999)(Future Publishing)(GB)(Track 1 of 2)[!][issue 1999-09].iso / -serious- / graphics / fxforge / zoom in < prev    next >
Text File  |  1999-06-15  |  1KB  |  26 lines
  1. Category: Filter Factory Gallery A
  2. Title: Zoom In...
  3. Author: Greg Schorno
  4. Copyright: Copyright © 1996 (c) Greg Schorno
  5.  
  6. ctl[0]: Center X
  7. ctl[1]: Center Y
  8. ctl[2]: Zoom Speed
  9. ctl[3]: Intensity
  10. ctl[4]: 
  11. ctl[5]: 
  12. ctl[6]:
  13. ctl[7]: 
  14. val[0]: 128
  15. val[1]: 128
  16. val[2]: 255
  17. val[3]: 196
  18. val[4]: 0
  19. val[5]: 0
  20. val[6]: 0
  21. val[7]: 0
  22. R:put((val(0,0,X)-x)*ctl(2),0),put((val(1,0,Y)-y)*ctl(2),1),put(128*ctl(3)/384,4),put(get(4)*ctl(3)/384,5),put(get(5)*ctl(3)/384,6),put(get(6)*ctl(3)/384,7),(128*c+get(4)*src(x+get(0)/2048,y+get(1)/2048,z)+get(5)*src(x+get(0)/1024,y+get(1)/1024,z)+get(6)*src(x+get(0)/512,y+get(1)/512,z)+get(7)*src(x+get(0)/256,y+get(1)/256,z))/(128+get(4)+get(5)+get(6)+get(7))
  23. G:(128*c+get(4)*src(x+get(0)/2048,y+get(1)/2048,z)+get(5)*src(x+get(0)/1024,y+get(1)/1024,z)+get(6)*src(x+get(0)/512,y+get(1)/512,z)+get(7)*src(x+get(0)/256,y+get(1)/256,z))/(128+get(4)+get(5)+get(6)+get(7))
  24. B:(128*c+get(4)*src(x+get(0)/2048,y+get(1)/2048,z)+get(5)*src(x+get(0)/1024,y+get(1)/1024,z)+get(6)*src(x+get(0)/512,y+get(1)/512,z)+get(7)*src(x+get(0)/256,y+get(1)/256,z))/(128+get(4)+get(5)+get(6)+get(7))
  25. A:a
  26.